10 REM EPROM TESTER
20 REM BY DAVID S. KRAUSE
30 FORX=3400TO3450:READY:POKEX,Y:NEXT:PRINT"[147]"
40 PRINT"(LOAD EPROM AT OR ABOVE 3500 DECIMAL)"
50 INPUT"EPROM START ADDRESS";S$
60 INPUT"EPROM ENDING ADDRESS";E$
70 S=VAL(S$):E=VAL(E$):A=INT(S/256):B=(S/256-A)*256
80 C=INT(E/256):D=(E/256-C)*256
90 IFS>ETHENPRINT"(ERROR-START CANNOT BE GREATER THAN END ADDRESS)":GOTO50
100 POKE251,B:POKE252,A:POKE253,D:POKE254,C
110 SYS3400
120 IFPEEK(2)=7THENPRINT"[147]SPECIFIED ADDRESSES ARE FULLY ERASED"
130 IFPEEK(2)=33THENPRINT"[147]ERROR IN ADDRESS";:PRINTPEEK(251)+256*PEEK(252)
140 END
150 DATA120,160,0,177,251,201,255,208,26
160 DATA165,252,197,254,208,12,165,251,197,253,208,6,169,7,133,2,88,96
170 DATA160,0,177,251,201,255,240,6,169,33,133,2,88,96,230,251,208,208,230
180 DATA252,208,204,88,96